1) MUSIC.FAI vs. 2) NSCOL.FAI	SRCCOM	05-27-74	17:08	PAGES 1,1

******** MUSIC.FAI **** PAGE 1
1)	COMMENT ⊗   VALID 00055 PAGES
1)	C REC  PAGE   DESCRIPTION
1)	C00001 00001
1)	C00006 00002	******  AS OF JAN. 12, 1971 *********
1)	C00012 00003		INPUT ROUTINE. CALL INITIALLY WITH PUSHJ P,SETUP
1)	C00015 00004	RIN:	ILDB TIB+1	GET FILE NAME
1)	C00017 00005	AER1:	MOVEI DEV1MS	ERROR ROUTINE FOR NOT AVAILABLE
1)	C00019 00006	SIXOUT:	TLO 440600		MAKE BYTE POINTER
1)	C00021 00007	SUBTTL   ALGOL SCANNER -- 9/8/66	D. POOLE
1)	C00024 00008		MOVE A,ACCUM	PREPARE TO SEARCH TABLES.
1)	C00027 00009	FOOSCH:	LDB B,[POINT 6,ACCUM,17]
1)	C00029 00010	SNUM1:	MOVEI C,0	NUMBER SCANNER.
1)	C00031 00011	 NOW SEARCH NUMBER TABLE FOR THE NUMBER.
1)	C00033 00012	 RESERVED WORD TABLE SEARCHER.
1)	C00035 00013	THE CHARACTER CONVERSION TABLE -- GOOD BITS FOR EVERYONE !
1)	C00037 00014	DEFINE PUT1 (N,Y)
1)	C00039 00015			MORE BITS AND PARAMETERS.
1)	C00041 00016	TEMPSY:	EXP TMPS1Z
1)	C00047 00017	TMPSA:	EXP TMPS4	LINEN.
1)	C00049 00018	 HERE ARE SOME WONDERFUL UNIT GENERATORS.
1)	C00057 00019	  REVERBERATION UNIT GENERATORS.
1)	C00061 00020	 MORE GENERATORS.
1)	C00064 00021	  RANDOM NUMBER GENERATORS.
1)	C00067 00022	PLIST:	BLOCK LPLIST
1)	C00068 00023	 THIS IS THE MULTIPLE-FEEDBACK REVERBERATOR.
1)	C00070 00024
1)	C00073 00025		 ***** COMPX BEGINS HERE ****  ROUTINES TO EMIT CODE AND STUFF TO OUTPUT BUFFERS.
1)	C00076 00026		THIS HERE IS THE COMPILER !
1)	C00078 00027	PRIM2:	CAMN A,MINV	UNARY MINUS ?
1)	C00081 00028	 PROCESS A FUNCTION CALL.
1)	C00084 00029	  HERE ARE THE GLORIOUS, SUPER-INTELLIGENT, SCHIZOPHRENIC
1)	C00087 00030	  HA! I BET YOU THOUGHT WE WERE DONE, DIDN'T YOU ?
1)	C00089 00031	 GMURK CLEVERLY GPONDERS THE TOP TWO OPERANDS,
1)	C00092 00032	 STILL MORE KLUGES. PAUSE TO GET YOUR BREATH NOW.
1)	C00095 00033	GETAC SEARCHES FOR A FREE AC, EITHER I-TIME OR 
1)	C00098 00034	 MORE GENERATORS.
1)	C00100 00035	GFUNC:	   GENERATE A FUNCTION CALL.
1)	C00103 00036	   UTILITY RUOTINE TO ENTER AN ITEM IN THE MAIN SYMBOL TAB.
1)	C00106 00037	  INITIALIZATION OF THE COMPILER.
1)	C00108 00038	  SYNTAX ANALYZER.
1)	C00111 00039
1)	C00113 00040	DF5:	CAME A,COMMAV	ARE THERE MORE DEFINITIONS ?
1)	C00116 00041	DF2A:	TLNE A,DF+NUMFLG
1)	C00119 00042	 MORE SYNTAX ANALYZER.  COMPILE AN INSTRUMENT DEFINITION.
1)	C00123 00043	CINS4:	PUSHJ P,STMT1	ITS NOT A UNIT GEN. CALL.
1)	C00127 00044	 THE WONDERFUL, WINNING LOADER.
1)	C00130 00045	  MORE LOADER (BUT NOT MUCH MORE, YOU WILL NOTICE !).

	1) MUSIC.FAI vs. 2) NSCOL.FAI	SRCCOM	05-27-74	17:08	PAGES 1,1

1)	C00132 00046	DARR:	PUSH P,[0]	DEFINE SOME ARRAYS.
1)	C00135 00047	 HERE IS THE OUTER LOOP OF THE WHOLE SYSTEM.
1)	C00138 00048	THIS CODE READS A NOTE STATEMENT, INITIALIZES THE
1)	C00141 00049	 MORE OF PINS.
1)	C00143 00050	 THIS ROUTINE GENERATES SAMPLES BY CALLING THE 
1)	C00146 00051	 RANDOM ROUTINES TO HANDLE THE SAMPLE OUTPUT BUFFER.
1)	C00150 00052	 ERROR HANDLING(?) ROUTINES.
1)	C00152 00053
1)	C00153 00054	RDNUM:	0	NUMBER READER FOR FOOTRAN ROUTINES.
1)	C00155 00055	REST1:	MOVEI TEMPSY
1)	C00157 ENDMK
1)	C⊗;
1)	;;;******  AS OF JAN. 12, 1971 *********
*** NSCOL.FAI *** PAGE 1
2)	;;;******  AS OF JAN. 12, 1971 *********


******** MUSIC.FAI **** PAGE 24
1)		AOBJN T,REVXI2	;LOOP TO GET ALARRAY (= ITS LENGTH).
1)		SKIPN REVINIT	;ARE WE INITIALIZING REVERBERATORS ?
*** NSCOL.FAI *** PAGE 23
2)		AOBJN T,REVXI2	;LOOP TO GET ALL 4 DELAY TAPS.
2)		SKIPN REVINIT	;ARE WE INITIALIZING REVERBERATORS ?


******** MUSIC.FAI **** PAGE 42
1)		MOVE B,VLOC	;GET LOC. FOR OUTPUT OF UNIP,SMCS1	;IGNORE SEMICOLON, IF ANY.
1)		AOS C,UOPTR	;INCREMENT COUNT OF UNIT GENS.
*** NSCOL.FAI *** PAGE 41
2)		MOVE B,VLOC	;GET LOC. FOR OUTPUT OF UNIT GEN.
2)		AOS C,UOPTR	;INCREMENT COUNT OF UNIT GENS.